#!/usr/bin/wish

set IMGPATH /usr2/fs/fsvue/images
set BINPATH /usr2/fs/fsvue/bin

set bfont {-*-lucida-medium-r-*-sans-18-*-*-*-*-*-*-*}

wm overrideredirect . 1
wm resizable . 0 0
wm geometry . +[expr ([winfo screenwidth .]-300)/2]+[expr ([winfo screenheight .]-200)/2]

frame .m \
        -bg {white} \
        -borderwidth {10} \
        -relief {groove} 

image create photo fsvue -file "$IMGPATH/fsvue_logo.gif"

button .m.q -text "Exit" \
-relief {raise} -background red -font $bfont -fg white -command exit 
label .m.ver -font $bfont -bg black -fg white -relief {raise} -text "Version 1.18"
label .image -image fsvue

pack .image 
pack .m .m.ver .m.q -side left -fill both -expand 1

